home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / easyk110.zip / FIRN.INI < prev    next >
Text File  |  1988-07-29  |  8KB  |  98 lines
  1. ;FIRN.INI designed for EasyK by R.A. Elnicki, DIS, CBA, University of Florida 1
  2. ;               Copyright 1987 by R.A. Elnicki                                2
  3. ;                   (97 lines, 96 numbered)                                   3
  4. ;                                                                             4
  5. ;SET BAUD 1200                   ; Activate one baud rate and comment out     5
  6. SET BAUD 2400                    ;  the other baud rate (2400 active here).   6
  7. CLEAR                            ; Clear the chosen port buffers.             7
  8. SET INPUT TIMEOUT-ACTION PROCEED ; Continue in the script if timed out.       8
  9. PAUSE 1                          ; Modem work time buffer.                    9
  10. RUN CLS                          ; Clear the display screen.                 10
  11. ECHO \13 EasyK will enter all commands necessary to sign on.  Do NOT enter  ;11
  12. ECHO \13 anything until you are asked to do so.  EasyK's next action is     ;12
  13. ECHO \13 described at each step in the programmed sign-on process.  The     ;13 
  14. ECHO \13 number will be tried three times (40 seconds each) and then you    ;14
  15. ECHO \13 will be returned to the EasyK prompt.  If the selected service     ;15
  16. ECHO \13 cannot be signed onto, the reason for the failure is given and     ;16
  17. ECHO \13 you will be returned to the EasyK prompt.                          ;17
  18. ECHO \13\10 *************************************************************** ;18
  19. ECHO \13 *  To display the EasyK-3270 keyboard, enter "Alt" with "x"   *    ;19
  20. ECHO \13 *  and then "do listkb" any time during a VTAM session.       *    ;20
  21. ECHO \13 ***************************************************************    ;21
  22. PAUSE 3                          ; Wait for 3 seconds to read the above.     22
  23. ECHO \13\10Resetting your modem next (should respond "OK" twice)...         ;23
  24. OUTPUT AT &F &C1 &D2 &W\13       ; Hayes 2400 SmartModem factory set, data   24
  25. ;                                   carrier suitable for 2400 SM, goes on    25
  26. PAUSE 3                          ;  hook no auto-answer, store, wait 3 sec.  26
  27. OUTPUT +++                       ; Return modem to command state.            27
  28. PAUSE 3                          ; Wait for 3 seconds for modem work.        28
  29. CLEAR                            ; Clear prior OK from buffer for next IF... 29
  30. OUTPUT ATZ\13                    ; Load modem config, do modem self test.    30
  31. INPUT 10 OK                      ; Wait 10 seconds for modem to send "OK".   31
  32. IF SUCCESS GOTO DIAL             ; Can dial if modem returns "OK".           32
  33. ECHO \13\10Modem did not respond correctly, returning to EasyK prompt...    ;33
  34. PAUSE 2                                                                     ;34
  35. GOTO OUT                         ;Go to script exit sequence.                35
  36. :DIAL                            ; Branch point for successful "OK".         36
  37. SET COUNT 3                      ; Dial up to 3 times.                       37
  38. :RETRY                           ; Branch back loop point for redialing      38
  39. ECHO \13\10Dialing 392-5369 with touch-tone at 2400 baud next...            ;39
  40. OUTPUT ATL1DT2-5369\13                                                      ;40
  41. ECHO \13\10Waiting for "CONNECT" to 7171 next (times out at 40 seconds)...  ;41
  42. INPUT 40 CONNECT                                                            ;42
  43. IF SUCCESS GOTO MADEIT           ;Go to MADEIT if CONNECT is returned.       43
  44. OUTPUT +++                       ;Reset modem again to redial...             44 
  45. PAUSE 3                                                                     ;45
  46. OUTPUT ATZ\13                                                               ;46
  47. PAUSE 3                                                                     ;47
  48. ECHO \13\10 No "CONNECT" given in 40 seconds, dialing again ... (Ho Humm)   ;48
  49. IF COUNT GOTO RETRY                                                         ;49
  50. PAUSE 2                                                                     ;50
  51. RUN CLS                                                                     ;51
  52. ECHO \10\13+--------------------------------------------------------------+ ;52
  53. ECHO \13| Dialing not successful in 3 tries at 50 seconds each.  Bye...|    ;53
  54. ECHO \13+--------------------------------------------------------------+    ;54
  55. ECHO \10\13                                                                 ;55
  56. PAUSE 2                                                                     ;56
  57. GOTO OUT                         ;Go to script exit sequence.                57
  58. :MADEIT                                                                     ;58
  59. PAUSE 3                          ;Wait 3 seconds for FIRN to respond.        59
  60. ECHO \13\10Sending "a" next to FIRN.                                        ;60
  61. PAUSE 2                                                                     ;61
  62. OUTPUT a                                                                    ;62
  63. ECHO \13\10Wait for FIRN to send "please log in:" next...                   ;63
  64. INPUT 10 please log in:                                                     ;64
  65. IF SUCCESS GOTO NFSC                                                        ;65
  66. ECHO \13\10Did not get "please log in " from FIRN; returning to EasyK prompt;66
  67. PAUSE 2                                                                     ;67
  68. GOTO OUT                                                                    ;68
  69. :NFSC                                                                       ;69 
  70. ECHO \13\10Entering "nerfsc" next:                                          ;70
  71. OUTPUT nerfsc\13                                                            ;71
  72. ;PAUSE 1                                                                    ;72
  73. ECHO \13\10Waiting for 7171 to send "ENTER TERMINAL TYPE" next...           ;73
  74. INPUT 10 ENTER TERMINAL TYPE:                                               ;74
  75. IF SUCCESS GOTO NVTAM                                                       ;75
  76. OUTPUT \13\10Did not find "ENTER TERMINAL TYPE"; back to EasyK...           ;76
  77. PAUSE 2                                                                     ;77
  78. GOTO OUT                         ;Go to script exit sequence.                78
  79. :NVTAM                                                                      ;79
  80. SET INPUT ECHO OFF                                                          ;80
  81. ECHO \13\10Entering the "VT100" terminal type next...                       ;81
  82. OUTPUT VT100\13                                                             ;82
  83. INPUT 20 NERDC VTAM IS ACTIVE                                               ;83
  84. IF SUCCESS GOTO SIGNON                                                      ;84
  85. OUTPUT \13\10Did not find "VTAM IS ACTIVE"; back to EasyK...                ;85
  86. PAUSE 2                                                                     ;86
  87. :OUT                                                                        ;87
  88. OUTPUT +++                       ;Reset modem & return to Easyk prompt.      88
  89. PAUSE 3                                                                     ;89
  90. OUTPUT ATZ\13                                                               ;90
  91. PAUSE 3                                                                     ;91
  92. STOP                                                                        ;92
  93. :SIGNON                                                                     ;93
  94. PAUSE 1                                                                     ;94
  95. SET INPUT ECHO ON                                                           ;95
  96. OUTPUT \07                                                                  ;96
  97. CONNECT
  98.